home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u288.dms / in.adf / Include / Graphics / Sprite.i < prev    next >
Encoding:
Text File  |  1990-08-27  |  605 b   |  31 lines
  1. {
  2.     Sprite.i for PCQ Pascal
  3. }
  4.  
  5. const
  6.  
  7.     SPRITE_ATTACHED    = $80;
  8.  
  9. type
  10.  
  11.     SimpleSprite = record
  12.     posctldata    : Address;
  13.     height        : Short;
  14.     x,y        : Short;    { current position }
  15.     num        : Short;
  16.     end;
  17.     SimpleSpritePtr = ^SimpleSprite;
  18.  
  19. Procedure ChangeSprite(vp : Address; s : SimpleSpritePtr; newData : Address);
  20.     External;    { vp is a ViewPortPtr }
  21.  
  22. Procedure FreeSprite(pick : Short);
  23.     External;
  24.  
  25. Function GetSprite(sprite : SimpleSpritePtr; pick : Short) : Short;
  26.     External;
  27.  
  28. Procedure MoveSprite(vp : Address; sprite : SimpleSpritePtr; x, y : Short);
  29.     External;    { vp is a ViewPortPtr }
  30.  
  31.